COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	BEGIN "XGP"
 00004 ENDMK
⊗;
BEGIN "XGP"
	DEFINE α="COMMENT";
	INTEGER ARRAY BUF[0:33*1000+2];
	INTEGER I;

α PLACE A PATTERN OF BITS;
	BUF[0] ← '7777;
	ARRBLT(BUF[1],BUF[0],33000);
	BUF[33001]← '400000000000; 		α CUT PAPER;
	BUF[33002]←0;

α PLACE AN XGP ROW CONTROL WORD IN EACH ROW;
α LINE INCREMENT=1, X-COL='400, WORD COUNT = '40;

	FOR I←0 STEP 1 UNTIL 999 DO 
	BUF[I*33] ← '000104000040;

START_CODE "XGPOUT"
	INTEGER ARG1,ARG2;
	SETZM ARG2;		α END OF DUMP COMMAND LIST IS ZERO;
	MOVE BUF;SOS;		α POINTER TO XGP BUFFER - 1;
	HRLI -33003;		α SIZE OF XGP BUFFER;
	MOVEM ARG1;
	
	'041000000000 1,'17;	α INIT 1,17	DUMP MODE CHANNEL 1;
	'704760000000;		α SIXBIT/XGP/ 	DEVICE;
	0;
	JRST 4,;		α HALT IF XGP NOT READY.;
	'057000000000 1,ARG1;	α OUT 1,ARG1	OUTPUT DUMP MODE;
	JFCL;
	'011000000000 1,;	α RELEASE 1,;
END;
	OUTSTR("END OF XGP"&13&10);
	WHILE TRUE DO INCHRW;
END "XGP";